home *** CD-ROM | disk | FTP | other *** search
/ Microsoft Internet Strate…Tools for the Enterprise / Microsoft Internet Strategy & Tools for the Enterprise.iso / bkoffice / inetsrv.nts / nt351qfe.usa / i386 / pscript.dll / 259 / 2 < prev    next >
Text File  |  1995-10-07  |  3KB  |  52 lines
  1.  
  2. %%BeginResource: file Adobe_WinNT_Pattern 2.0 0
  3. /SavedCTM null def/CTMsave{/SavedCTM SavedCTM currentmatrix def}b/CTMrestore{SavedCTM
  4. setmatrix}b/mp null def/ADO_mxRot null def/GDIBWPatternDict 18 dict
  5. dup begin/PatternType 1 def/PaintType L2?{1}{2}ifelse def/RepsV L2?{1}{6}ifelse
  6. def/RepsH L2?{1}{5}ifelse def/BBox [0 0 RepsH 1] def/TilingType 1 def/XStep
  7. 1 def/YStep 1 def/Height null def/Width null def/mx null def/FGnd null
  8. def/BGnd null def/SetBGndFGnd L2?{{BGnd null ne{BGnd aload pop sgco
  9. BBox aload pop 2 index sub exch 3 index sub exch rf}if FGnd null ne{FGnd
  10. aload pop sgco}if}}{{}}ifelse b/PaintProc{begin SetBGndFGnd RepsH{Width
  11. Height false mx PaintData imagemask Width 0 translate}repeat end}b
  12. end def/GDIBWPatternMx null def/pfprep{save 6 1 roll/PatternOfTheDay
  13. 6 1 roll GDIBWPatternDict begin/PaintData exch def/yExt exch def/Width
  14. exch def/BGnd exch def/FGnd exch def/Height yExt RepsV mul def/mx [
  15. Width 0 0 Height 0 0 ] def end gsave GDIBWPatternDict begin Width Height
  16. end dsnap scale/GDIBWPatternMx matrix currentmatrix def grestore CTMsave
  17. GDIBWPatternMx setmatrix GDIBWPatternDict 0 8 matrix translate mp CTMrestore
  18. exch pop}b/hrf null def/prf{pfprep exch 6 1 roll 5 hrf restore}b/GraphInit{GDIBWPatternMx
  19. null eq{/SavedCTM matrix def gsave ADO_mxRot concat grestore}if}b
  20. %%EndResource
  21.  
  22. %%BeginResource: file Adobe_WinNT_Pattern_L1 2.0 0
  23.  L2?
  24. not DefIf_B{/GDIpattfill{dup begin BGnd null ne PaintType 2 eq and{gsave
  25. BGnd aload pop sgco fEOFill{eofill}{fill}ifelse grestore FGnd aload
  26. pop userdict/fGray 2 index put{2}{4}ifelse -1 roll}if end dup patterncalc
  27. gsave 4 index/PaintType get 2 eq{fGray{6 -1 roll sg}{8 -3 roll sco}ifelse}if
  28. fEOFill{eoclip}{clip}ifelse newpath patternfill grestore newpath}b/hrf{/fGray
  29. 1 index 6 eq def -4 roll newpath rp closepath/fEOFill false def GDIpattfill}b/mpstr
  30. 10 string def/mp{exch dup length 12 add dict copy begin/PatternCTM
  31. matrix currentmatrix def/PatternMatrix exch def/PatWidth XStep mpstr
  32. length mul def/PatHeight YStep def/FontType 3 def/Encoding 256 array
  33. def 3 string 0 1 255{Encoding exch dup 3 index cvs cvn put}for pop/FontMatrix
  34. matrix def/FontBBox BBox def/BuildChar{pop dup begin XStep 0 FontBBox
  35. aload pop setcachedevice/PaintProc load end gsave exec grestore}b currentdict
  36. end exch dup 3 -1 roll definefont}b/patterncalc{begin gsave PatternCTM
  37. setmatrix PatternMatrix concat BBox aload pop pop pop translate pathbbox
  38. grestore PatHeight div ceiling 4 1 roll PatWidth div ceiling 4 1 roll
  39. PatHeight div floor 4 1 roll PatWidth div floor 4 1 roll 2 index sub
  40. cvi abs exch 3 index sub cvi abs exch 4 2 roll PatHeight mul exch PatWidth
  41. mul exch end}b/patternfill{5 -1 roll dup begin setfont PatternCTM setmatrix
  42. PatternMatrix concat 0 2 index 2 index M 0 1 mpstr length 1 sub{1 index
  43. mpstr 3 1 roll put}for pop 2 index{currentpoint 5 index{mpstr show}repeat
  44. YStep add M}repeat pop pop pop pop end}b}DefIf_E
  45. %%EndResource
  46.  
  47. %%BeginResource: file Adobe_WinNT_Pattern_L2 2.0 0
  48.  L2? DefIf_B{/mp/makepattern
  49. load def/hrf{6 eq setAorABC setpattern rectfill}b}DefIf_E
  50. %%EndResource
  51.  
  52.